home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / propmgr2.arc / LIST1.ACG < prev    next >
Encoding:
Text File  |  1979-12-31  |  2.0 KB  |  58 lines
  1. * DATE 08/27/84  13:09
  2. * list1.acg
  3. STOR CHR(peek (063)) TO dr
  4. SET INDEX TO &dr.:lastname
  5. STOR DATE() TO stdat
  6. @ 18,12 SAY 'Files after what date are to be printed'
  7. @ 18,57 GET stdat PICTURE '99/99/99'
  8. READ
  9. STOR $(stdat,7,2)+$(stdat,1,2)+$(stdat,4,2) TO stdate
  10. GO TOP
  11. STOR 0 TO pageno
  12. STOR t TO more
  13. SET MARGIN TO 10
  14. DO WHIL more
  15.  STOR pageno + 1 TO pageno
  16.  STOR 6 TO lineno
  17.  ERAS
  18.  EJEC
  19.  ? '  '
  20.  ? '==================== LIST UPDATES AFTER - ' + stdat+ ' ============='
  21.  ? ' '
  22.  ? '         ' + date() + '                                            PAGE: '+ STR(pageno,3)
  23.  ? ' '
  24.  DO WHIL lineno < 55
  25.   IF .NOT. EOF
  26.    STOR $(update,7,2)+$(update,1,2)+$(update,4,2) TO stdate1
  27.    IF stdate1 >= stdate
  28.     ? '-------------------------------------------------------------------'
  29.     ? '     ' +  "Name: "+ mr + TRIM(fname) +' ' + lastname
  30.     ? '     ' + "Spouse: " + spouse + "Address as: " + dear
  31.     ? '     ' + "Title: " + title
  32.     ? '     ' + "Company: " + company1
  33.     ? '     ' + "       : " + company2
  34.     ? '     ' + "Address: " + caddress + "  " + suite
  35.     ? '     ' + "         " + ccity +', ' + cst + '  ' +czip
  36.     ? '     ' + "Home address: " + address + "  " + apt
  37.     ? '     ' + "              " + city +', '+  st + '  ' +zip
  38.     ? '     ' + 'Phones - office: ' + ophone + ' home: ' + phone
  39.     ? '     ' + "Codes:  " + cs1 + ' ' + cs2 + ' ' + cs3 + ' ' + cs4 + ' ' + cs5 + ' ' + cs6
  40.     ? '     ' + "Send to office: " + send
  41.     ? '     ' + "Date update: " + update
  42.     STOR lineno +13 TO lineno
  43.     SKIP
  44.    ELSE
  45.     SKIP
  46.    ENDI stdate1
  47.   ELSE
  48.    STOR f TO more
  49.    STOR 60 TO lineno
  50.   ENDI .NOT. EOF
  51.  ENDD while lineno < 55
  52. ENDD while more
  53. EJEC
  54. SET PRINT OFF
  55. RELE pageno, lineno, stdat, stdate
  56. STOR t TO more
  57. STOR t TO first
  58.